Revista CD Expert 37/CD Expert nº 37.iso/LastCall/lastcall.exe/stuff/splash.dxr/00028_Startmovie for splash screen.ls

Text File | 2000-03-23 | 461 b | 35 lines

on startMovie
  bringAppToFront()
  set the exitLock to 1
  rememberOriginalMonitorSettings()
  setUpPrefsFolder()
  readPrefs()
  checkMonitorResolution()
  checkColorDepth()
end

on stopMovie
  storePrefs()
end

on prepareMovie
  waitCursor()
end

on mouseDown
  go("exit")
end

on keyDown
  if the keyCode = 53 then
    restoreOriginalMonitorSettings()
    if authoring() then
      halt()
    else
      quit()
    end if
  else
    go("exit")
  end if
end